BBS in a Box 5

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / mixin-madness / dialog-item-mixins / double-click-dim.lisp < prev
MacBinary | 1991-10-23 | 3.5 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Oct 23 15:47:45 1991, modified Wed Oct 23 15:47:45 1991, creator Common Lisp 2, type ASCII, 2846 bytes "double-click-dim.lisp" , at 0xb9e 416 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 15 64 6f 75 62 6c 65 | 2d 63 6c 69 63 6b 2d 64 |..double|-click-d|
|00000010| 69 6d 2e 6c 69 73 70 00 | 00 00 00 00 00 00 00 00 |im.lisp.|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0b 1e 00 | 00 01 a0 a5 2b 82 61 a5 |........|....+.a.|
|00000060| 2b 82 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+.a.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c6 98 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 64 6f 75 62 |).(provi|de :doub|
|000000a0| 6c 65 2d 63 6c 69 63 6b | 2d 64 69 6d 29 0d 3b 3b |le-click|-dim).;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000f0| 3b 3b 3b 3b 0d 3b 3b 20 | 64 6f 75 62 6c 65 2d 63 |;;;;.;; |double-c|
|00000100| 6c 69 63 6b 2d 64 69 6d | 2e 4c 69 73 70 0d 3b 3b |lick-dim|.Lisp.;;|
|00000110| 0d 3b 3b 20 43 6f 70 79 | 72 69 67 68 74 20 a9 20 |.;; Copy|right . |
|00000120| 31 39 39 31 20 4e 6f 72 | 74 68 77 65 73 74 65 72 |1991 Nor|thwester|
|00000130| 6e 20 55 6e 69 76 65 72 | 73 69 74 79 20 49 6e 73 |n Univer|sity Ins|
|00000140| 74 69 74 75 74 65 20 66 | 6f 72 20 74 68 65 20 4c |titute f|or the L|
|00000150| 65 61 72 6e 69 6e 67 20 | 53 63 69 65 6e 63 65 73 |earning |Sciences|
|00000160| 0d 3b 3b 20 41 6c 6c 20 | 52 69 67 68 74 73 20 52 |.;; All |Rights R|
|00000170| 65 73 65 72 76 65 64 0d | 3b 3b 0d 3b 3b 20 61 75 |eserved.|;;.;; au|
|00000180| 74 68 6f 72 3a 20 4d 69 | 63 68 61 65 6c 20 53 2e |thor: Mi|chael S.|
|00000190| 20 45 6e 67 62 65 72 0d | 3b 3b 0d 3b 3b 20 44 69 | Engber.|;;.;; Di|
|000001a0| 61 6c 6f 67 20 69 74 65 | 6d 20 6d 69 78 69 6e 20 |alog ite|m mixin |
|000001b0| 66 6f 72 20 68 61 6e 64 | 6c 69 6e 67 20 64 6f 75 |for hand|ling dou|
|000001c0| 62 6c 65 2d 63 6c 69 63 | 6b 73 0d 3b 3b 3b 3b 3b |ble-clic|ks.;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000200| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000210| 3b 0d 0d 28 6f 6f 75 2d | 64 65 70 65 6e 64 65 6e |;..(oou-|dependen|
|00000220| 63 69 65 73 0d 20 29 0d | 0d 28 65 78 70 6f 72 74 |cies. ).|.(export|
|00000230| 20 27 28 64 6f 75 62 6c | 65 2d 63 6c 69 63 6b 2d | '(doubl|e-click-|
|00000240| 64 69 6d 29 29 0d 0d 3b | 3b 3b 3b 3b 3b 3b 3b 3b |dim))..;|;;;;;;;;|
|00000250| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 0d 23 7c |;;;;;;;;|;;;;;.#||
|00000290| 0d 54 68 69 73 20 6d 69 | 78 69 6e 20 68 61 6e 64 |.This mi|xin hand|
|000002a0| 6c 65 73 20 64 6f 75 62 | 6c 65 20 63 6c 69 63 6b |les doub|le click|
|000002b0| 69 6e 67 2e 0d 0d 43 75 | 72 72 65 6e 74 6c 79 2c |ing...Cu|rrently,|
|000002c0| 20 74 68 65 20 66 69 72 | 73 74 20 63 6c 69 63 6b | the fir|st click|
|000002d0| 20 6f 6e 20 74 68 65 20 | 69 74 65 6d 20 69 73 20 | on the |item is |
|000002e0| 68 61 6e 64 6c 65 64 20 | 6e 6f 72 6d 61 6c 6c 79 |handled |normally|
|000002f0| 0d 28 69 2e 65 2e 20 74 | 68 65 20 64 69 61 6c 6f |.(i.e. t|he dialo|
|00000300| 67 2d 69 74 65 6d 2d 61 | 63 74 69 6f 6e 20 6d 61 |g-item-a|ction ma|
|00000310| 79 20 62 65 20 72 75 6e | 29 20 54 68 69 73 20 69 |y be run|) This i|
|00000320| 73 20 6e 6f 74 20 61 6c | 77 61 79 73 20 64 65 73 |s not al|ways des|
|00000330| 69 72 65 61 62 6c 65 2c | 0d 61 20 66 75 74 75 72 |ireable,|.a futur|
|00000340| 65 20 65 6e 68 61 6e 63 | 65 6d 65 6e 74 20 6d 61 |e enhanc|ement ma|
|00000350| 79 20 62 65 20 74 6f 20 | 6d 61 6b 65 20 74 68 69 |y be to |make thi|
|00000360| 73 20 61 6e 20 6f 70 74 | 69 6f 6e 2e 0d 0d 0d 49 |s an opt|ion....I|
|00000370| 6e 69 74 61 72 67 73 0d | 0d 20 3a 64 69 61 6c 6f |nitargs.|. :dialo|
|00000380| 67 2d 69 74 65 6d 2d 64 | 6f 75 62 6c 65 2d 63 6c |g-item-d|ouble-cl|
|00000390| 69 63 6b 2d 61 63 74 69 | 6f 6e 0d 20 20 20 41 20 |ick-acti|on.   A |
|000003a0| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 62 65 20 63 |function| to be c|
|000003b0| 61 6c 6c 65 64 20 77 68 | 65 6e 20 74 68 65 20 69 |alled wh|en the i|
|000003c0| 74 65 6d 20 69 73 20 64 | 6f 75 62 6c 65 20 63 6c |tem is d|ouble cl|
|000003d0| 69 63 6b 65 64 2e 20 54 | 68 65 20 66 75 6e 63 74 |icked. T|he funct|
|000003e0| 69 6f 6e 0d 20 20 20 73 | 68 6f 75 6c 64 20 61 63 |ion.   s|hould ac|
|000003f0| 63 65 70 74 20 6f 6e 65 | 20 61 72 67 75 6d 65 6e |cept one| argumen|
|00000400| 74 2c 20 74 68 65 20 69 | 74 65 6d 2e 0d 0d 0d 4d |t, the i|tem....M|
|00000410| 65 74 68 6f 64 73 20 6f | 66 20 49 6e 74 65 72 65 |ethods o|f Intere|
|00000420| 73 74 0d 0d 20 64 69 61 | 6c 6f 67 2d 69 74 65 6d |st.. dia|log-item|
|00000430| 2d 64 6f 75 62 6c 65 2d | 63 6c 69 63 6b 2d 61 63 |-double-|click-ac|
|00000440| 74 69 6f 6e 20 28 64 69 | 20 64 6f 75 62 6c 65 2d |tion (di| double-|
|00000450| 63 6c 69 63 6b 2d 64 69 | 6d 29 0d 20 20 54 68 69 |click-di|m).  Thi|
|00000460| 73 20 69 73 20 63 61 6c | 6c 65 64 20 77 68 65 6e |s is cal|led when|
|00000470| 20 74 68 65 20 64 69 61 | 6c 6f 67 20 69 74 65 6d | the dia|log item|
|00000480| 20 69 73 20 64 6f 75 62 | 6c 65 20 63 6c 69 63 6b | is doub|le click|
|00000490| 65 64 2e 20 54 68 65 20 | 64 65 66 61 75 6c 74 0d |ed. The |default.|
|000004a0| 20 20 6d 65 74 68 6f 64 | 20 63 61 6c 6c 73 20 74 |  method| calls t|
|000004b0| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 69 6e 20 74 |he funct|ion in t|
|000004c0| 68 65 20 73 6c 6f 74 2c | 20 64 69 61 6c 6f 67 2d |he slot,| dialog-|
|000004d0| 69 74 65 6d 2d 64 6f 75 | 62 6c 65 2d 63 6c 69 63 |item-dou|ble-clic|
|000004e0| 6b 2d 61 63 74 69 6f 6e | 2d 66 75 6e 74 69 6f 6e |k-action|-funtion|
|000004f0| 2e 0d 0d 7c 23 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |...|#.;;|;;;;;;;;|
|00000500| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000510| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000520| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000530| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 0d 28 64 |;;;;;;;;|;;;;..(d|
|00000540| 65 66 63 6c 61 73 73 20 | 64 6f 75 62 6c 65 2d 63 |efclass |double-c|
|00000550| 6c 69 63 6b 2d 64 69 6d | 20 28 29 0d 20 20 28 28 |lick-dim| ().  ((|
|00000560| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 2d 64 6f 75 62 |dialog-i|tem-doub|
|00000570| 6c 65 2d 63 6c 69 63 6b | 2d 61 63 74 69 6f 6e 2d |le-click|-action-|
|00000580| 66 75 6e 74 69 6f 6e 20 | 3a 69 6e 69 74 61 72 67 |funtion |:initarg|
|00000590| 20 3a 64 69 61 6c 6f 67 | 2d 69 74 65 6d 2d 64 6f | :dialog|-item-do|
|000005a0| 75 62 6c 65 2d 63 6c 69 | 63 6b 2d 61 63 74 69 6f |uble-cli|ck-actio|
|000005b0| 6e 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |n)))..(d|efmethod|
|000005c0| 20 64 69 61 6c 6f 67 2d | 69 74 65 6d 2d 64 6f 75 | dialog-|item-dou|
|000005d0| 62 6c 65 2d 63 6c 69 63 | 6b 2d 61 63 74 69 6f 6e |ble-clic|k-action|
|000005e0| 20 28 28 64 69 20 64 6f | 75 62 6c 65 2d 63 6c 69 | ((di do|uble-cli|
|000005f0| 63 6b 2d 64 69 6d 29 29 | 0d 20 20 28 77 68 65 6e |ck-dim))|.  (when|
|00000600| 20 28 73 6c 6f 74 2d 62 | 6f 75 6e 64 70 20 64 69 | (slot-b|oundp di|
|00000610| 20 27 64 69 61 6c 6f 67 | 2d 69 74 65 6d 2d 64 6f | 'dialog|-item-do|
|00000620| 75 62 6c 65 2d 63 6c 69 | 63 6b 2d 61 63 74 69 6f |uble-cli|ck-actio|
|00000630| 6e 2d 66 75 6e 74 69 6f | 6e 29 0d 20 20 20 20 28 |n-funtio|n).    (|
|00000640| 66 75 6e 63 61 6c 6c 20 | 28 73 6c 6f 74 2d 76 61 |funcall |(slot-va|
|00000650| 6c 75 65 20 64 69 20 27 | 64 69 61 6c 6f 67 2d 69 |lue di '|dialog-i|
|00000660| 74 65 6d 2d 64 6f 75 62 | 6c 65 2d 63 6c 69 63 6b |tem-doub|le-click|
|00000670| 2d 61 63 74 69 6f 6e 2d | 66 75 6e 74 69 6f 6e 29 |-action-|funtion)|
|00000680| 20 64 69 29 29 29 0d 0d | 20 20 28 64 65 66 6d 65 | di)))..|  (defme|
|00000690| 74 68 6f 64 20 76 69 65 | 77 2d 63 6c 69 63 6b 2d |thod vie|w-click-|
|000006a0| 65 76 65 6e 74 2d 68 61 | 6e 64 6c 65 72 20 3a 61 |event-ha|ndler :a|
|000006b0| 72 6f 75 6e 64 20 28 28 | 64 69 20 64 6f 75 62 6c |round ((|di doubl|
|000006c0| 65 2d 63 6c 69 63 6b 2d | 64 69 6d 29 20 77 68 65 |e-click-|dim) whe|
|000006d0| 72 65 29 0d 20 20 20 20 | 28 64 65 63 6c 61 72 65 |re).    |(declare|
|000006e0| 20 28 69 67 6e 6f 72 65 | 20 77 68 65 72 65 29 29 | (ignore| where))|
|000006f0| 0d 20 20 20 20 28 69 66 | 20 28 64 6f 75 62 6c 65 |.    (if| (double|
|00000700| 2d 63 6c 69 63 6b 2d 70 | 29 0d 20 20 20 20 20 20 |-click-p|).      |
|00000710| 28 64 69 61 6c 6f 67 2d | 69 74 65 6d 2d 64 6f 75 |(dialog-|item-dou|
|00000720| 62 6c 65 2d 63 6c 69 63 | 6b 2d 61 63 74 69 6f 6e |ble-clic|k-action|
|00000730| 20 64 69 29 0d 20 20 20 | 20 20 20 28 63 61 6c 6c | di).   |   (call|
|00000740| 2d 6e 65 78 74 2d 6d 65 | 74 68 6f 64 29 29 29 0d |-next-me|thod))).|
|00000750| 0d 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.;;;;;;;|;;;;;;;;|
|00000760| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000770| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000780| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000790| 3b 3b 3b 3b 3b 3b 3b 0d | 0d 23 7c 0d 0d 3b 3b 3b |;;;;;;;.|.#|..;;;|
|000007a0| 20 61 20 6d 6f 64 65 73 | 74 20 65 78 61 6d 70 6c | a modes|t exampl|
|000007b0| 65 20 2d 20 61 64 64 69 | 6e 67 20 62 75 74 74 6f |e - addi|ng butto|
|000007c0| 6e 20 62 65 68 61 76 69 | 6f 72 20 74 6f 20 73 74 |n behavi|or to st|
|000007d0| 61 74 69 63 20 74 65 78 | 74 20 64 69 61 6c 6f 67 |atic tex|t dialog|
|000007e0| 20 69 74 65 6d 73 0d 0d | 28 64 65 66 63 6c 61 73 | items..|(defclas|
|000007f0| 73 20 64 63 62 75 74 20 | 28 62 75 74 74 6f 6e 2d |s dcbut |(button-|
|00000800| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 20 64 6f 75 62 |dialog-i|tem doub|
|00000810| 6c 65 2d 63 6c 69 63 6b | 2d 64 69 6d 29 20 28 29 |le-click|-dim) ()|
|00000820| 29 0d 0d 28 73 65 74 66 | 20 2a 74 65 73 74 2d 77 |)..(setf| *test-w|
|00000830| 2a 0d 20 20 20 20 20 20 | 28 6d 61 6b 65 2d 69 6e |*.      |(make-in|
|00000840| 73 74 61 6e 63 65 20 27 | 64 69 61 6c 6f 67 0d 20 |stance '|dialog. |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000860| 20 20 20 20 3a 77 69 6e | 64 6f 77 2d 74 79 70 65 |    :win|dow-type|
|00000870| 20 3a 64 6f 63 75 6d 65 | 6e 74 0d 20 20 20 20 20 | :docume|nt.     |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000890| 3a 76 69 65 77 2d 70 6f | 73 69 74 69 6f 6e 20 3a |:view-po|sition :|
|000008a0| 63 65 6e 74 65 72 65 64 | 0d 20 20 20 20 20 20 20 |centered|.       |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 76 |        |      :v|
|000008c0| 69 65 77 2d 73 69 7a 65 | 20 23 40 28 32 30 30 20 |iew-size| #@(200 |
|000008d0| 31 30 30 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |100).   |        |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 3a 77 69 6e 64 6f |        |  :windo|
|000008f0| 77 2d 74 69 74 6c 65 20 | 22 72 65 63 74 2d 62 75 |w-title |"rect-bu|
|00000900| 74 74 6f 6e 2d 64 69 6d | 20 64 65 6d 6f 22 0d 20 |tton-dim| demo". |
|00000910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000920| 20 20 20 20 3a 63 6c 6f | 73 65 2d 62 6f 78 2d 70 |    :clo|se-box-p|
|00000930| 20 74 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | t.     |        |
|00000940| 20 20 20 20 20 20 20 20 | 3a 76 69 65 77 2d 73 75 |        |:view-su|
|00000950| 62 76 69 65 77 73 0d 20 | 20 20 20 20 20 20 20 20 |bviews. |        |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6c 69 73 |        |    (lis|
|00000970| 74 20 28 6d 61 6b 65 2d | 64 69 61 6c 6f 67 2d 69 |t (make-|dialog-i|
|00000980| 74 65 6d 20 27 64 63 62 | 75 74 0d 20 20 20 20 20 |tem 'dcb|ut.     |
|00000990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009b0| 20 20 20 20 20 20 20 20 | 23 40 28 32 30 20 32 30 |        |#@(20 20|
|000009c0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 23 |        |       #|
|000009f0| 40 28 31 36 30 20 31 38 | 29 0d 20 20 20 20 20 20 |@(160 18|).      |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a20| 20 20 20 20 20 20 20 22 | 49 27 6d 20 73 74 61 74 |       "|I'm stat|
|00000a30| 69 63 20 74 65 78 74 20 | 2b 20 61 20 6d 69 78 69 |ic text |+ a mixi|
|00000a40| 6e 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n".     |        |
|00000a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a70| 23 27 28 6c 61 6d 62 64 | 61 20 28 69 74 65 6d 29 |#'(lambd|a (item)|
|00000a80| 20 28 64 65 63 6c 61 72 | 65 20 28 69 67 6e 6f 72 | (declar|e (ignor|
|00000a90| 65 20 69 74 65 6d 29 29 | 20 28 65 64 2d 62 65 65 |e item))| (ed-bee|
|00000aa0| 70 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |p)).    |        |
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ad0| 20 3a 64 69 61 6c 6f 67 | 2d 69 74 65 6d 2d 64 6f | :dialog|-item-do|
|00000ae0| 75 62 6c 65 2d 63 6c 69 | 63 6b 2d 61 63 74 69 6f |uble-cli|ck-actio|
|00000af0| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n.      |        |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 23 |        |       #|
|00000b20| 27 28 6c 61 6d 62 64 61 | 20 28 69 74 65 6d 29 20 |'(lambda| (item) |
|00000b30| 28 64 65 63 6c 61 72 65 | 20 28 69 67 6e 6f 72 65 |(declare| (ignore|
|00000b40| 20 69 74 65 6d 29 29 20 | 28 65 76 61 6c 2d 65 6e | item)) |(eval-en|
|00000b50| 71 75 65 75 65 20 27 28 | 70 72 69 6e 74 20 22 68 |queue '(|print "h|
|00000b60| 69 2c 68 6f 22 29 29 29 | 0d 20 20 20 20 20 20 20 |i,ho")))|.       |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b90| 20 20 20 20 20 20 29 29 | 29 29 0d 0d 7c 23 00 00 |      ))|))..|#..|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00000c10| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 72 65 63 74 |).(provi|de :rect|
|00000c20| 2d 62 75 74 74 6f 6e 2d | 64 69 6d 29 0d 3b 3b 3b |-button-|dim).;;;|
|00000c30| 15 64 6f 75 62 6c 65 2d | 63 6c 69 63 6b 2d 64 69 |.double-|click-di|
|00000c40| 6d 2e 6c 69 73 70 02 00 | 00 00 54 45 58 54 43 43 |m.lisp..|..TEXTCC|
|00000c50| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 a4 b0 99 97 00 00 | 00 00 00 00 01 a0 74 74 |........|......tt|
|00000c80| 6f 6e 2d 64 69 6d 2e 4c | 69 73 70 0d 3b 3b 0d 3b |on-dim.L|isp.;;.;|
|00000c90| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 a9 20 31 39 |; Copyri|ght . 19|
|00000ca0| 39 31 20 4e 6f 72 74 68 | 77 65 73 74 65 72 6e 20 |91 North|western |
|00000cb0| 55 6e 69 76 65 72 73 69 | 74 79 20 49 6e 73 74 69 |Universi|ty Insti|
|00000cc0| 74 75 74 65 20 66 6f 72 | 20 74 68 65 20 4c 65 61 |tute for| the Lea|
|00000cd0| 72 6e 69 6e 67 20 53 63 | 69 65 6e 63 65 73 0d 3b |rning Sc|iences.;|
|00000ce0| 3b 20 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |; All Ri|ghts Res|
|00000cf0| 65 72 76 65 64 0d 3b 3b | 0d 3b 3b 20 61 75 74 68 |erved.;;|.;; auth|
|00000d00| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00000d10| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|00000d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d30| 00 00 00 00 00 06 00 08 | 00 a6 01 0a 03 24 03 e9 |........|.....$..|
|00000d40| 00 a6 01 0a 03 24 03 e9 | 00 00 00 00 00 00 00 10 |.....$..|........|
|00000d50| 00 00 00 10 00 00 00 00 | 01 00 00 00 01 00 00 00 |........|........|
|00000d60| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d3 2c 08 16 |.Z...Z..|.F.7.,..|
|00000d70| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00000d80| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00000d90| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 38 0c 48 |........|.....8.H|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+